home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / batchut / bat.zip / SERIAL.BAT < prev    next >
Encoding:
DOS Batch File  |  1985-02-03  |  1.7 KB  |  65 lines
  1. bat     skip 19
  2.  
  3. For Seaware extended batch processor:
  4. Disk format and serial numbering program 2/4/84 Ward Christensen
  5.  
  6. Execute via:
  7.         serial name number
  8. to start formatting and serializing disks.
  9.  
  10. Ex: serial wards 100
  11. results in a serial number of "WARDS #0100"
  12. (always right justifies the # in the 11 digit vol ser)
  13.  
  14. NOTE: use of esc strings in "FORMATTED" line - for Ansi.sys
  15.  
  16. NOTE: designed for (1) DOS 2.0 ANSI.SYS,
  17.         and
  18. double sided 9 track diskettes (362496 per diskette -
  19. (see that value hard coded below in check for proper formatting).
  20.  
  21. bat     *
  22. bat     if .%2 = . goto -help
  23. bat     %N = %2
  24. bat     %1= %1%S%S%S%S%S $ 1 5
  25. bat     -loop %L = %1%S#
  26. bat     if %N < 10 %L = %L0
  27. bat     if %N < 100 %L = %L0
  28. bat     if %N < 1000 %L = %L0
  29. bat     %L = %L%N
  30. bat     begtype
  31.         mount diskette to be \1b[7m FORMATTED  \1b[0m in drive B:
  32. end
  33. bat     type serial will be %L ;
  34. bat     inkey press Y or space to format %K
  35. bat     if %K = y goto -format
  36. bat     if %K = key020 goto -format
  37. bat     if %K <> Y goto -end
  38. bat     -format stack g;
  39. bat     stack %L
  40. bat     stack n;
  41. bat     cls
  42. format B: /v %3
  43. bat     readscrn
  44. bat     readscrn
  45. bat     readscrn
  46. bat     readscrn %9
  47. bat     if %9 = 362496 goto -next
  48. bat     -bad beep
  49. bat     type disk had errors - not 362496 bytes free
  50. bat     inkey (R)etry, (N)ext, (Q)uit %K
  51. bat     if %K = R goto -loop
  52. bat     if %K = r goto -loop
  53. bat     if %K = Q goto -end
  54. bat     if %K = q goto -end
  55. bat     if %K = N goto -next
  56. bat     if %K <> n goto -bad
  57. bat     -next * going to next diskette
  58. bat     %N = %N + 1
  59. bat     goto -loop
  60. bat     -help begtype
  61.         Format is: serial <name> <number>
  62. ex:     serial wards 100
  63. end
  64. bat     -end stack.purge
  65.